


(defun inc (n)
  (if (not (typep n `integer))
      (progn (cerror "return 0 instead" "~s was passed to function inc, should have been an integer." n)
	     0)
      (+ n 1)))


(print (inc 3))
(print (inc `f))
(print `Finished)

(defun myerror (str &rest args)
  (setf form (append `(format t ,str) args))
  (eval form))

(defmacro myerrorm (str &rest args)
  `(format t ,str ,@args))

;(myerrorm "this ~s is cool ~s" "fish" "right")


